   1 .
   2 .
   3 .NEW GHOST
   4 &(9)=83
   5 clear 
  10 BC=rnd (255);FC=BC+4+rnd (32)mul 8
  15 G=FC;FC=BC
  16 &(0)=BC;&(1)=BC;&(2)=G;&(3)=G
  20 CX=25;CY=30;print "* * *
  30 CX=-1;CY=20;print "HORRIBLE HARRY
  40 CX=0;CY=10;print "THE INSULTING
  50 CX=17;CY=0;print "TV GHOST
  60 CX=6;CY=-10;print "MYSTERIOUSLY
  70 CX=22;CY=-20;print "APPEARS
  80 CX=0;CY=-30;print "AT HALLOWEEN
 200 box -32,0,50,17,1
 210 box -32,0,46,22,1
 220 box -32,-1,42,27,1
 230 box -32,-2,38,33,1
 240 box -32,-6,34,46,1
 250 box -32,-5,30,47,1
 260 box -32,-30,26,1,1
 270 box -32,-31,22,1,1
 280 box -32,-32,18,1,1
 300 box -23,8,3,2,2
 310 box -23,0,10,14,2
 320 box -23,-8,4,2,2
 330 box -41,8,4,2,2
 340 box -41,0,10,14,2
 350 box -41,-8,3,2,2
 400 box -32,-13,6,2,2
 410 box -32,-12,8,2,2
 420 box -32,-14,10,2,2
 430 box -32,-11,4,2,2
 440 box -32,-10,2,2,2
 450 box -32,-16,6,1,2
 460 box -32,-24,10,2,2
 470 box -26,-22,2,2,2
 480 box -24,-20,2,2,2
 490 box -38,-22,2,2,2
 500 box -40,-20,2,2,2
 510 for A=1to 20;FC=BC;for B=1to 10;next B;FC=G;for B=1to 10;next B;next A
 515 gosub 2000
 520 for A=1to 6;box J,K,4,6,2;box H,I,4,6,2;gosub 2000
 530 B=rnd (5);C=rnd (5);H=H+B;I=I+B;J=J+C;K=K+C;box H,I,4,6,1;box J,K,4,6,1
 540 for B=1to 20;next B;next A
 600 CY=40;A=rnd (9)
 605 if A=9goto 1100
 610 A=Amul 10+1000
 620 gosub A
 800 B=rnd (6)mul 32;for A=B+64to Bstep -1;&(22)=255;&(17)=A;&(18)=A+10
 810 &(19)=A-10;&(20)=A;next A;&(22)=0;for A=16to 20;&(A)=0;next A
1000 goto 520
1010 print "--WHAT IS YOUR PROBLEM?-";return 
1020 print "  YOU LOOK TERRIBLE!!!--";return 
1030 print "THAT CAN'T BE YOUR FACE-";return 
1040 print "YIPES! YOU SURE ARE UGLY";return 
1050 print "YOUR WORMS ARE SHOWING--";return 
1060 print "...WHO DUG YOU UP?...   ";return 
1070 print "YOU LOOK LIKE THE-DEVIL-";return 
1080 print "I'D HATE TOBE YOUR MUMMY";return 
1100 print "HOW COME YOU HAVE 3 EYES?";box -32,12,7,9,2
1110 box -32,12,10,3,2;box -32,12,3,4,1;for A=1to 2000;next A;goto 5
2000 H=-26;I=-4;J=-44;K=-3;return 
>:return 
